home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 8 / Digital_Talk_08_1994-07-17_Digital_Talk_de_Side_D.d64 / lottozahlen .bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  262b  |  16 lines
  1. 10 poke53280,0:poke53281,15:poke646,0
  2. 20 :
  3. 30 print "[147] lottozahlen - zufallsdemo"
  4. 40 :
  5. 50 print " bitte eine taste druecken !"
  6. 60 :
  7. 70 geta$ : if a$ = "" then 70
  8. 80 :
  9. 90 print " ihre glueckszahlen :"
  10. 100 :
  11. 110 for i = 1 to 6
  12. 120 :  z=int(rnd(1)*49)+1
  13. 130 :  print ,,z
  14. 140 next i
  15. 150 :
  16.